home *** CD-ROM | disk | FTP | other *** search
/ Always 25 / Always_25_1995-09_Elysium_Sunga_pl_Side_A.d64 / gaypack xxv .run / ARC AID 5.1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  136 lines
  1. 0 rem:  mods by e. goldberg : 02nov86          *** use arc 2.21 or higher ***
  2. 1 poke650,0:poke808,239:gosub131
  3. 3 ifgl=9230then232
  4. 12 poke53281,0:poke53280,0:print"[147]";
  5. 15 ifpeek(49152)+peek(49153)<>206thenprint"[147] [193][210][195] 2.21 must be loaded and run [198][201][210][211][212]! ":goto15
  6. 20 print"[147]               [193][210][195] [193][201][196] 5.1 "
  7. 21 gosub184
  8. 22 print"               [195]reated  [194]y:"
  9. 24 print"         [158][197][146]xtract from an [193][210][195] file.
  10. 25 [153]"            syslenwaitreate an atn(NULL)len file.
  11. 26 print"      [158][193][146]ppend to an existing [193][210][195] file.
  12. 27 [153]"           sysascwaitile (NULL)anagement (NULL)enu":[153]"             sysstr$waitevice # change.
  13. 28 print"              e[158][216][146]it [193][210][195] [193][201][196]."
  14. 29 geta$:ifa$=""thengosub139:gosub191:goto29
  15. 30 ifa$<>"e"anda$<>"c"anda$<>"a"thenva=1
  16. 31 ifa$<>"f"anda$<>"x"anda$<>"d"andva=1thenva=0:goto29
  17. 32 if a$="c"thengosub800:print"[147]";spc(15);"[204]oading...[144]":load"arcaid1",8
  18. 33 ifa$="a"thengosub800:print"[147]";spc(15);"[204]oading...[144]":load"arcaid3",8
  19. 34 ifa$="x"then196
  20. 35 ifa$="f"then206
  21. 36 ifa$<>"d"thengosub800:print"[147]";spc(15);"[204]oading...[144]":load"arcaid2",8
  22. 40 print"[147]  [212][213][210][206] [207][198][198] [193][204][204] [196][210][201][214][197][211], [197][216][195][197][208][212] [212][200][197] [207][206][197]     [217][207][213] [215][193][206][212] [212][207] [195][200][193][206][199][197]."
  23. 45 input"[195]urrent device number  8[157][157][157]";cd:input"[206]ew device number  9[157][157][157]";nd
  24. 50 open1,cd,15:print#1,"m-w"chr$(119)chr$(0)chr$(2)chr$(nd+32)chr$(nd+64):close1
  25. 55 run
  26. 120 end
  27. 131 rem:scrolling msg
  28. 132 a$="                 [207]riginally written by [196]an [204]evine, with extensive "
  29. 133 b$="improvements by [197]arl [199]oldberg of the "
  30. 134 c$="[195][213][199][203][195] 02-[206]ov-86.     [208]lease send any questions, comments or"
  31. 135 d$=" suggestions to me at [195]ommodore [195]entral (913-621-1801) "
  32. 136 e$="                     "
  33. 137 ms$=e$+a$+b$+c$+d$
  34. 138 return
  35. 139 print"[158]";
  36. 140 x=x+1:ifx=256thenx=1
  37. 141 printmid$(ms$,x,40);"[146]";:fordy=1to 10:next
  38. 142 return
  39. 143 rem: append to an arc file
  40. 184 rem by-line
  41. 185 bl$(1)="[158][196][154]an [204]evin[158]e"
  42. 186 bl$(2)="[196][158]a[154]n [204]evi[158]ne"
  43. 187 bl$(3)="[196]a[158]n[154] [204]ev[158]ine"
  44. 188 bl$(4)="[196]an[158] [154][204]e[158]vine"
  45. 189 bl$(5)="[196]an [158][204][154][158]evine"
  46. 190 di=1:return
  47. 191 b=b+di
  48. 192 ifb=6thenb=5:di=-1
  49. 193 ifb=0thendi=1
  50. 194 print"                ";bl$(b):return
  51. 195 poke631,13:poke632,71:poke633,207:poke635,13:poke636,13:poke198,5:goto120
  52. 196 print"[147]           [196]o you want to:"
  53. 197 print"           [158][210][146]eturn to [193][210][195] [193][201][196],"
  54. 198 print"           [158][197][146]xit to [193][210][195], or"
  55. 199 print"           [158][199][146]o to [194][193][211][201][195]"
  56. 200 geta$:ifa$=""then200
  57. 201 ifa$="r"thenrun
  58. 202 ifa$="e"thenpoke808,237:print"[147]arc":poke631,13:poke198,1:new
  59. 203 ifa$="g"thensys64738
  60. 205 goto200
  61. 206 rem: file management
  62. 207 print"[147]    [212]his section only uses drive 8,0    [146]"
  63. 208 print"            [198]ile [205]anagement"
  64. 209 print"           [158]$[146] for a directory."
  65. 210 print"           [158][198][146]ormat a disk."
  66. 211 print"           [158][214][146]alidate a disk."
  67. 212 print"           [158][211][146]cratch files."
  68. 213 print"           [158][210][146]ename a file."
  69. 214 print"           [158][204][146]oad address of file.":print"           [158][196][146]isplay [211][197][209] file.
  70. 215 [153]"           syslenwaitontents of an atn(NULL)len file."
  71. 216 [153]"           sysatnwaitbort to (NULL)ain (NULL)enu"
  72. 217 [161]a$:[139]a$[179][177]""[167]223
  73. 218 tg[178]1[171]tg
  74. 219 [139]tg[178]0[167][153]"sys";
  75. 220 [139]tg[178]1[167][153]"";
  76. 221 [153]"    (NULL)his section only uses drive 8,0    wait":[129]d[178]1[164]40:[130]
  77. 222 [137]217
  78. 223 [139]a$[179][177]"f"[167]228
  79. 224 [153]"loadascormat a diskwait"
  80. 225 [133]"str$isk (NULL)ame,right$str$";dn$,id$:co$[178]"asc(NULL)(NULL)(NULL)atn(NULL)":[141]600:[139]yn[167][138]
  81. 226 [153]"load       ascormatting in progress...":[159]15,8,15,"n0:"[170]dn$[170]","[170]id$
  82. 227 [160]15:[137]229
  83. 228 [151]808,239:[139]a$[179][177]"$"[167]235
  84. 229 [153]"load     (NULL)left$right$asc(NULL) pauses,  (NULL)(NULL)(NULL)/(NULL)(NULL)(NULL)(NULL) aborts"
  85. 230 [153]"dir":[153]"":gl[178]9230
  86. 231 [137]195
  87. 232 [153]"    (NULL)ress any key to return to menu.wait":[151] 198,0:gl[178]0
  88. 233 [161]a$:[139]a$[178]""[167]233
  89. 234 [137]206
  90. 235 [139]a$[179][177]"v"[167]239
  91. 236 [153]"load":co$[178]"(NULL)atn(NULL)right$str$atn(NULL)val":[141]600:[139]yn[167][138]
  92. 237 [153]"load        (NULL)alidation in progress":[159]15,8,15,"v0":[160]15:[137]229
  93. 238 [137]217
  94. 239 [139]a$[179][177]"s"[167]244
  95. 240 [153]"load(NULL)cratch files."
  96. 241 [133]"ascilename (or pattern)";f$:[139]f$[178]""[167][138]
  97. 242 [159] 15,8,15,"s0:"[170]f$
  98. 243 f$[178]"":[160]15:[137]229
  99. 244 [139]a$[179][177]"r"[167]250
  100. 245 [153]"load(NULL)ename ascile."
  101. 246 [133]"lenurrent filename";f$:[139]f$[178]""[167][138]
  102. 247 [133]"(NULL)ew filename";n$:[139]n$[178]""[167][138]
  103. 248 [159]15,8,15,"r0:"[170]n$[170]"="[170]f$
  104. 249 f$[178]"":n$[178]"":[160]15:[137]229
  105. 250 [139]a$[179][177]"l"[167]255
  106. 251 [153]"load(NULL)oad address of a file."
  107. 252 [133]"ascile name";f$:[141]500
  108. 253 [153]"loadstart a:";f$:gl[178]9230:[153]""
  109. 254 [137]195
  110. 255 [139]a$[179][177]"c"[167]260
  111. 256 [153]"loadlenontents of an atn(NULL)len file."
  112. 257 [133]"atn(NULL)len filename";f$:[141]500
  113. 258 [153]"loadarc/l a:"f$:[153]"":gl[178]9230
  114. 259 [137]195
  115. 260 [139]a$[178]"d"[167]700
  116. 261 [139]a$[178]"a"[167][138]
  117. 262 [137]217
  118. 500 te$[178]"":[129]i[178]1[164][195](f$):[139]f$[178]""[167][138]
  119. 501 [139][202](f$,i,1)[178]" "[167]te$[178]te$[170][199](160):[137]503
  120. 502 te$[178]te$[170][202](f$,i,1)
  121. 503 [130]
  122. 505 f$[178]te$:[142]
  123. 600 [153]"       right$(NULL)(NULL)val(NULL)(NULL) str$right$(NULL)(NULL) (NULL)(NULL) "co$
  124. 602 [153]"       (NULL)(NULL)val(NULL)(NULL)  (NULL) wait (NULL)(NULL) (NULL)(NULL)(NULL)lenvalvalstr$, (NULL)(NULL)"
  125. 604 [153]"       atn(NULL)(NULL) (NULL)(NULL)left$val(NULL)close(NULL)val(NULL) (NULL)(NULL) atnpeek(NULL)(NULL)(NULL).":[151]198,0
  126. 606 [161]a$:[139]a$[178]""[167]606
  127. 608 [139]a$[178]"p"[167]yn[178]0:[142]
  128. 610 yn[178]1:[142]
  129. 700 [153]"loadstr$isplay (NULL)val(NULL) file."
  130. 702 [133]"(NULL)val(NULL) filename";f$:[141]500
  131. 703 [153]"load   (NULL)left$right$asc(NULL) pauses,  (NULL)(NULL)(NULL)/(NULL)(NULL)(NULL)(NULL) aborts"
  132. 704 [153]"type "f$:[153]"":gl[178]9230:[137]195
  133. 800 [153]"load right$(NULL)(NULL)val(NULL)(NULL) str$right$(NULL)(NULL) with atn(NULL)len atnright$str$ in drive 8,0             and press (NULL)val(NULL)(NULL)(NULL)(NULL)"
  134. 802 [161]a$:[139]a$[179][177][199](13)[167]802
  135. 804 [142]
  136.